home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XL21HOS2.ZIP / SENDMACR.LSP < prev    next >
Encoding:
Text File  |  1995-12-27  |  369 b   |  16 lines
  1. (setf (aref *readtable* (char-int #\[))
  2.       (cons :tmacro
  3.         (lambda (f c &aux ex)
  4.             (do () 
  5.             ((eq (peek-char t f) #\]))
  6.             (setf ex (append ex (list (read f)))))
  7.             (read-char f)
  8.             (cons (cons 'send ex) nil))))
  9.  
  10. (setf (aref *readtable* (char-int #\]))
  11.       (cons :tmacro
  12.         (lambda (f c)
  13.             (error "misplaced right bracket"))))
  14.  
  15.  
  16.